home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Source Sea20778672001.psc / clsDefinition.cls < prev    next >
Encoding:
Visual Basic class definition  |  2001-03-30  |  1.4 KB  |  74 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsDefinition"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15.  
  16. 'Definition Key (not carried over from session to session)
  17. Dim m_strKey As String
  18. 'The definition description
  19. Dim m_strDescription As String
  20. 'The Severity Rating
  21. Dim m_intSeverity As Integer
  22. 'The Search Phrase
  23. Dim m_strPhrase As String
  24.  
  25. Public Property Get Key() As String
  26.  
  27.   Key = m_strKey
  28.  
  29. End Property
  30.  
  31. Public Property Let Key(v_strKey As String)
  32.  
  33.   m_strKey = v_strKey
  34.  
  35. End Property
  36.  
  37. Public Property Get Description() As String
  38.  
  39.   Description = m_strDescription
  40.  
  41. End Property
  42.  
  43. Public Property Let Description(v_strDescription As String)
  44.  
  45.   m_strDescription = v_strDescription
  46.  
  47. End Property
  48.  
  49. Public Property Get Severity() As Integer
  50.  
  51.   Severity = m_intSeverity
  52.  
  53. End Property
  54.  
  55. Public Property Let Severity(v_intSeverity As Integer)
  56.  
  57.   m_intSeverity = v_intSeverity
  58.  
  59. End Property
  60.  
  61. Public Property Get Phrase() As String
  62.  
  63.   Phrase = m_strPhrase
  64.  
  65. End Property
  66.  
  67. Public Property Let Phrase(v_strPhrase As String)
  68.  
  69.   m_strPhrase = v_strPhrase
  70.  
  71. End Property
  72.  
  73.  
  74.